﻿Namespace Controls
    Public Class NumericTextBoxInteger
        Inherits TextBox
        Protected Overrides Sub OnKeyPress(e As KeyPressEventArgs)            
            MyBase.OnKeyPress(e)
            If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar) Then
                e.Handled = True
            End If
        End Sub
    End Class
End Namespace